home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b2.d64 / xmascards < prev    next >
Text File  |  2007-02-28  |  1KB  |  38 lines
  1. 0010 DIM RECIPIENT$ OF 30, SENDER$ OF 30
  2. 0020 DIM DATE$ OF 20, ANSW$ OF 10
  3. 0030 //
  4. 0040 WRITEFROM(5)
  5. 0050 INPUT "WHAT DATE (E.G. 12 DECEMBER 1980)? ": DATE$
  6. 0060 SENDER$:="HANNIBAL"
  7. 0070 //
  8. 0080 REPEAT 
  9. 0090 READ RECIPIENT$
  10. 0100 WRITECARD
  11. 0110 FOR I:=1 TO 3 DO PRINT  //3 DOWN
  12. 0120 INPUT "PRESS THE RETURN-KEY: ": ANSW$
  13. 0130 UNTIL EOD //END-OF-DATA//
  14. 0140 WRITEFROM(5)
  15. 0150 PRINT "NO MORE XMAS CARDS."
  16. 0160 PRINT "DON'T FORGET TO STAMP THEM."
  17. 0170 END 
  18. 0180 //
  19. 0190 PROC WRITECARD 
  20. 0200 WRITEFROM(5)
  21. 0210 PRINT "         ODDINGTON, ",DATE$
  22. 0220 PRINT 
  23. 0230 PRINT "DEAR ",RECIPIENT$
  24. 0240 PRINT 
  25. 0250 PRINT "I WISH YOU A MERRY CHRISTMAS AND"
  26. 0260 PRINT "A HAPPY AND PROFITABLE NEW YEAR."
  27. 0270 PRINT "                  LOVE FROM"
  28. 0280 PRINT "                  ",SENDER$
  29. 0290 ENDPROC WRITECARD
  30. 0300 //
  31. 0310 PROC WRITEFROM(LINE) 
  32. 0320 PRINT CHR$(147) //CLEAR//
  33. 0330 FOR I:=1 TO LINE DO PRINT  //CURSOR DOWN
  34. 0340 ENDPROC WRITEFROM
  35. 0350 //
  36. 0360 DATA "ELIZA","LOUISE","ROY","LITTLE JOHN"
  37. 0370 DATA "AGATHE","PETER","CURT HUGO","MAX"
  38.